QTEffectSequence Class

Builds a QuickTime movie from two pictures and a QuickTime effect. Use QTEffectSequence as a constructor to create a QTEffectSequence object.

Events

None

Properties

Frame

Image

Methods

None

More information available in parent classes: Object

result = New QTEffectSequence(effect,image1,image2,frames)

Part	Type	Description
result	QTEffectSequence	QTEffectSequence object, created from the values of the passed parameters.
effect	QTEffect	QT effect used in creating the sequence.
image1	Picture	Initial image in sequence.
image2	Picture	Final image in sequence.
frames	Integer	Number of frames in the sequence.

Notes

Use GetQTSMPTEEffect or GetQTCrossFadeEffect to obtain the value of effect.

Example

This example creates a QuickTime movie from two pictures, p1 and p2, using the cross-fade effect.

Dim sequence as QTEffectSequence
Dim theEffect as QTEffect
theEffect= GetQTCrossFadeEffect
sequence= New QTEffectSequence (theEffect,p1,p2,96)

This example creates a QuickTime movie from two pictures that are displayed in ImageWells, ImageWell1 and ImageWell2. The movie demonstrates either a cross-fade effect (as in the first example) or a user-selected SMPTE effect. All of the SMPTE effects are listed in a ListBox named EffectsList. To select an SMPTE effect, the user selects RadioButton2 and clicks on the desired SMPTE effect displayed in EffectsList.

This code is in the Action event of a PushButton. The user clicks it after choosing either the cross-fade effect or a particular SMPTE effect.

Dim sequence asQTEffectSequence
Dim i,effectID as Integer
Dim theEffect as QTEffect
Dim track as QTVideoTrack
Dim m as EditableMovie
Dim f as FolderItem
f= GetFolderItem("Movie")
m=f.CreateMovie
if Radiobutton1.value then
theEffect= GetQTCrossFadeEffect
else
theEffect= GetQTSMPTEEffect( Val(EffectsList.Cell(EffectsList.ListIndex,1)))
End if
sequence= New QTEffectSequence(theEffect,ImageWell1.Image,_
ImageWell2.Image,96)
track=m.NewVideoTrack(ImageWell1.Image.width, ImageWell1.Image.height, 32)

For i=1 to 96
sequence.frame=i
track.appendpicture sequence.image
progressBar1.value=i
Next
f.launch